home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / Demos_Files / OnIntroduction.nsm < prev    next >
Encoding:
Text File  |  2002-03-08  |  3.0 KB  |  86 lines
  1. //application. newBreadboard (  )
  2. currentText = CurrentDemo. text ( )
  3. activeBreadboard. maximize (  )
  4. activeBreadboard. lockWindowUpdate()
  5.  
  6. activeBreadboard. selectMembers ( "TextBoxEngine", False )
  7. activeBreadboard. select ( "excelButton" , True )
  8. activeBreadboard. select ( "cswButton" , True )
  9. activeBreadboard. select ( "helpButton" , True )
  10. activeBreadboard. select ( "moreButton" , True )
  11. activeBreadboard. deleteSelection(  )
  12.  
  13. activeBreadboard. setAnimatePoint ( 10 , 5 )
  14. activeBreadboard. stampAndMove ( "TextBoxEngine" , "titleTextBox" )
  15. titleTextBox. setBorderType ( 0 )
  16. titleTextBox. setTransparent ( TRUE )
  17. titleTextBox. setColor ( 0 , 0 , 255 )
  18. titleTextBox. setPosition ( 1 )
  19. titleTextBox. setPadding ( 1 )
  20. titleTextBox. setFontSize ( 24 )
  21. titleTextBox. setBold ( TRUE )
  22. titleTextBox. setHeight ( 25 )
  23. titleTextBox. setWidth ( 530 )
  24. titleTextBox. setMacroAction ( 1 )
  25. titleTextBox. setText ( currentText )
  26. titleTextBox. setEditModeEnabled ( FALSE )
  27.  
  28. runButton. moveTo ( 550 , 5 )
  29. runButton. setName ( "cancelButton" )
  30. cancelButton. setText ( "╫" )
  31. cancelButton. setFontSize ( 28 )
  32. cancelButton. setColor ( 0 , 0 , 0 )
  33. cancelButton. setPadding ( 0 )
  34. cancelButton. setAutosize ( FALSE )
  35. cancelButton. setWidth ( 26 )
  36. cancelButton. setHeight ( 24 )
  37. cancelButton. setPosition ( 1 )
  38. cancelButton. setBold ( TRUE )
  39. cancelButton. setItalic ( FALSE )
  40. cancelPath = macro. pathFromMacro ( "OnConclude.nsm" )
  41. cancelButton. setMacroPath ( cancelPath )
  42.  
  43. activeBreadboard. setAnimatePoint ( 580 , 5 )
  44. activeBreadboard. stampAndMove ( "ButtonEngine" , "nextButton" )
  45. nextButton. setMacroAction ( 1 )
  46. nextButton. setAutosize ( FALSE )
  47. nextButton. setPosition ( 1 )
  48. nextButton. setPadding ( 0 )
  49. nextButton. setFontSize ( 22 )
  50. nextButton. setBold ( TRUE )
  51. nextButton. setColor ( 255 , 0 , 0 )
  52. nextButton. setText ("╗")
  53. nextButton. setWidth ( 26 )
  54. nextButton. setHeight ( 24 )
  55. nextButton. setEditModeEnabled ( FALSE )
  56.  
  57. activeBreadboard. setAnimatePoint ( 10 ,30 )
  58. activeBreadboard. stampAndMove ( "TextBoxEngine" , "subtitleTextBox" )
  59. subtitleTextBox. setBorderType ( 0 )
  60. subtitleTextBox. setTransparent ( TRUE )
  61. subtitleTextBox. setColor ( 0 , 0 , 255 )
  62. subtitleTextBox. setPosition ( 0 )
  63. subtitleTextBox. setPadding ( 1 )
  64. subtitleTextBox. setFontSize ( 18 )
  65. subtitleTextBox. setItalic ( TRUE )
  66. subtitleTextBox. setHeight ( 20 )
  67. subtitleTextBox. setWidth ( 590 )
  68. subtitleTextBox. setMacroAction ( 1 )
  69. subtitleTextBox. setEditModeEnabled ( FALSE )
  70.  
  71. activeBreadboard. setAnimatePoint ( 10 ,50 )
  72. activeBreadboard. stampAndMove ( "TextBoxEngine" , "mainTextBox" )
  73. mainTextBox. setBorderType ( 0 )
  74. mainTextBox. setTransparent ( TRUE )
  75. mainTextBox. setPosition ( 0 )
  76. mainTextBox. setPadding ( 1 )
  77. mainTextBox. setFontSize ( 18 )
  78. mainTextBox. setHeight ( 125 )
  79. mainTextBox. setWidth ( 590 )
  80. mainTextBox. setMacroAction ( 1 )
  81. mainTextBox. setEditModeEnabled ( FALSE )
  82.  
  83. runPath = macro. pathFromMacro ( currentText )
  84. fullPath = macro. strcat ( runPath, "\Introduction.nsm" )
  85. activeBreadboard. runMacro ( fullPath )
  86.